home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Syntax Definitions / fortran.def < prev    next >
Text File  |  2000-11-08  |  6KB  |  205 lines
  1. object TPersHolder
  2.   P.Name = 'Fortran'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       FIText = 0
  8.       FIIntNum = 1
  9.       FIFloatNum = 2
  10.       FIHexNum = 3
  11.       FIDirective = 4
  12.       FISymbol = 13
  13.       UseSymbols = True
  14.       UseLineDirectives = True
  15.       UseComments = True
  16.       UseSingleLineComments = True
  17.       UseStrings = True
  18.       UseSingleLineStrings = True
  19.       UseNumbers = True
  20.       UsePrefixedNumbers = True
  21.       UsePrefixedSuffixedIdentifiers = True
  22.       UseKeywords = True
  23.       BlockDelimiters = <>
  24.       LineDirectivePrefix = '$'
  25.       SingleLineCommentDelimiters = <
  26.         item
  27.           FontID = 5
  28.           LeftDelimiter = '!'
  29.         end
  30.         item
  31.           FontID = 6
  32.           LeftDelimiter = 'c'
  33.         end>
  34.       SingleLineStringDelimiters = <
  35.         item
  36.           FontID = 7
  37.           LeftDelimiter = #39
  38.           RightDelimiter = #39
  39.         end
  40.         item
  41.           FontID = 8
  42.           LeftDelimiter = '"'
  43.           RightDelimiter = '"'
  44.         end>
  45.       NumPrefixes = <
  46.         item
  47.           LeftDelimiter = '#'
  48.         end>
  49.       IdentPrefixesSuffixes = <
  50.         item
  51.           LeftDelimiter = '.'
  52.           RightDelimiter = '.'
  53.         end>
  54.       KeywordSets = <
  55.         item
  56.           FontID = 9
  57.           Name = 'statements'
  58.           Keywords = 
  59.             'ALIAS,ALLOCATE,ASSIGN,AUTOMATIC,BACKSPACE,BLOCK,BYTE,C,CALL,CASE' +
  60.             ',CHARACTER,CLOSE,COMMON,COMPLEX,CONTINUE,CYCLE,DATA,DEALLOCATE,D' +
  61.             'IMENSION,DO,DOUBLE,ELSE,END,ENDFILE,ENTRY,EQUIVALENCE,EXIT,EXTER' +
  62.             'NAL,FORMAT,FUNCTION,GOTO,IF,IMPLICIT,INCLUDE,INQUIRE,INTEGER,INT' +
  63.             'RINSIC,LOCKING,LOGICAL,MAP,NAMELIST,OPEN,PARAMETER,PAUSE,PRECISI' +
  64.             'ON,PRINT,PROGRAM,READ,REAL,RECORD,REFERENCE,RETURN,REWIND,SAVE,S' +
  65.             'ELECT,STDCALL,STOP,STRUCTURE,SUBROUTINE,TO,UNION,VALUE,VARYING,W' +
  66.             'HILE,WRITE'
  67.         end
  68.         item
  69.           FontID = 10
  70.           Name = 'directives'
  71.           Keywords = 
  72.             'ALIAS,ATTRIBUTES,DECLARE,DEFINE,DEFINED,ELSE,ELSEIF,ENDIF,FIXEDF' +
  73.             'ORMLINESIZE,FREEFORM,IDENT,IF,INTEGER,MESSAGE,NODECLARE,NOFREEFO' +
  74.             'RM,NOSTRICT,OBJCOMMENT,OPTIONS,PACK,PSECT,REAL,STRICT,SUBTITLE,T' +
  75.             'ITLE,UNDEFINE'
  76.         end
  77.         item
  78.           FontID = 11
  79.           Name = 'logical'
  80.           Keywords = 
  81.             '.AND.,.EQ.,.EQV.,.FALSE.,.GT.,.LT.,.NEQV.,.NOT.,.OR.,.TRUE.,.XOR' +
  82.             '.'
  83.         end>
  84.     end>
  85.   P.FontTable = <
  86.     item
  87.       FontID = 0
  88.       GlobalAttrID = 'Whitespace'
  89.       Font.Charset = DEFAULT_CHARSET
  90.       Font.Color = clBlack
  91.       Font.Height = -13
  92.       Font.Name = 'Courier New'
  93.       Font.Style = []
  94.     end
  95.     item
  96.       FontID = 1
  97.       GlobalAttrID = 'Integer'
  98.       Font.Charset = DEFAULT_CHARSET
  99.       Font.Color = clGreen
  100.       Font.Height = -13
  101.       Font.Name = 'Courier New'
  102.       Font.Style = []
  103.     end
  104.     item
  105.       FontID = 2
  106.       GlobalAttrID = 'Float'
  107.       Font.Charset = DEFAULT_CHARSET
  108.       Font.Color = clGreen
  109.       Font.Height = -13
  110.       Font.Name = 'Courier New'
  111.       Font.Style = []
  112.     end
  113.     item
  114.       FontID = 3
  115.       GlobalAttrID = 'Integer'
  116.       Font.Charset = DEFAULT_CHARSET
  117.       Font.Color = clGreen
  118.       Font.Height = -13
  119.       Font.Name = 'Courier New'
  120.       Font.Style = []
  121.     end
  122.     item
  123.       FontID = 4
  124.       GlobalAttrID = 'Defines'
  125.       Font.Charset = DEFAULT_CHARSET
  126.       Font.Color = clGreen
  127.       Font.Height = -13
  128.       Font.Name = 'Courier New'
  129.       Font.Style = [fsBold]
  130.     end
  131.     item
  132.       FontID = 5
  133.       GlobalAttrID = 'Comment'
  134.       Font.Charset = DEFAULT_CHARSET
  135.       Font.Color = clGray
  136.       Font.Height = -13
  137.       Font.Name = 'Courier New'
  138.       Font.Style = [fsItalic]
  139.     end
  140.     item
  141.       FontID = 6
  142.       GlobalAttrID = 'Comment'
  143.       Font.Charset = DEFAULT_CHARSET
  144.       Font.Color = clGray
  145.       Font.Height = -13
  146.       Font.Name = 'Courier New'
  147.       Font.Style = [fsItalic]
  148.     end
  149.     item
  150.       FontID = 7
  151.       GlobalAttrID = 'String'
  152.       Font.Charset = DEFAULT_CHARSET
  153.       Font.Color = clMaroon
  154.       Font.Height = -13
  155.       Font.Name = 'Courier New'
  156.       Font.Style = []
  157.     end
  158.     item
  159.       FontID = 8
  160.       GlobalAttrID = 'String'
  161.       Font.Charset = DEFAULT_CHARSET
  162.       Font.Color = clMaroon
  163.       Font.Height = -13
  164.       Font.Name = 'Courier New'
  165.       Font.Style = []
  166.     end
  167.     item
  168.       FontID = 9
  169.       GlobalAttrID = 'Reserved words'
  170.       Font.Charset = DEFAULT_CHARSET
  171.       Font.Color = clBlue
  172.       Font.Height = -13
  173.       Font.Name = 'Courier New'
  174.       Font.Style = [fsBold]
  175.     end
  176.     item
  177.       FontID = 10
  178.       GlobalAttrID = 'Reserved words'
  179.       Font.Charset = DEFAULT_CHARSET
  180.       Font.Color = clBlue
  181.       Font.Height = -13
  182.       Font.Name = 'Courier New'
  183.       Font.Style = [fsBold]
  184.     end
  185.     item
  186.       FontID = 11
  187.       GlobalAttrID = 'Reserved words'
  188.       Font.Charset = DEFAULT_CHARSET
  189.       Font.Color = clBlue
  190.       Font.Height = -13
  191.       Font.Name = 'Courier New'
  192.       Font.Style = [fsBold]
  193.     end
  194.     item
  195.       FontID = 13
  196.       GlobalAttrID = 'Delimiters'
  197.       Font.Charset = DEFAULT_CHARSET
  198.       Font.Color = clBlack
  199.       Font.Height = -13
  200.       Font.Name = 'Courier New'
  201.       Font.Style = []
  202.     end>
  203.   P.SyntaxVersion = 3
  204. end
  205.